Postcard CD: Niagara Parks/Postcard CD: Niagara Parks (2004).iso/mac/prv-f.dxr/AeroCar_9.ls

Text File | 2002-01-10 | 637 b | 34 lines

global castName

on beginSprite me
  if castName = "NiagraGlen" then
    sprite(59).blend = 100
    sprite(59).memberNum = sprite(59).memberNum + 14
  end if
end

on mouseEnter me
  if castName <> "NiagraGlen" then
    sprite(59).blend = 100
    sprite(59).memberNum = sprite(59).memberNum + 14
  end if
end

on mouseLeave me
  if castName <> "NiagraGlen" then
    sprite(59).blend = 50
    sprite(59).memberNum = sprite(59).memberNum - 14
  end if
end

on mouseDown me
  global castIndex, PauseSS
  if PauseSS = 1 then
    PauseSS = 0
    sprite(100).member = member(8, 2)
  end if
  castIndex = 9
  castName = "NiagraGlen"
  go(2)
end